home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d19 / dframe21.arc / DISPLAY.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-03-22  |  1.4 KB  |  36 lines
  1. ' Example usage of the DIS.PLAY routine enhancements (~ ` @ ^ | { and })
  2. ' If BLINK% = 1 and you are using one of these enhancements, then only
  3. ' the text between the symbols will blink. Otherwise the whole line blinks
  4. ' normally. If BLINK% = 0 then the text between the symbols will display
  5. ' normally in the color specfied by the symbols you are using
  6. ' Note that the text to blink must start and end with the same symbol.
  7. '  ~ = blue
  8. '  ` = green
  9. '  @ = cyan
  10. '  ^ = red
  11. '  | = magenta
  12. '  { = yellow
  13. '  } = white
  14.  
  15. ' $INCLUDE: '\INC\DFRAME.INC'
  16.  
  17. PROGNAME$ = "Display Examples"
  18. VERSION$ = " v0.0"
  19. INITIALIZE
  20. CLOSE #1
  21.  
  22. DETECT.ANSI               'Required for the symbols to work
  23.  
  24. DIS.PLAY "Example for <~BLINKING BLUE~> in the middle.", LGREEN, BLACK, 1, 0, 2, 0, 0, 1, 0
  25. DIS.PLAY "Example for <`BLINKING GREEN`> in the middle.", LCYAN, BLACK, 1, 0, 4, 0, 0, 1, 0
  26. DIS.PLAY "Example for <@BLINKING CYAN@> in the middle.", LRED, BLACK, 1, 0, 6, 0, 0, 1, 0
  27. DIS.PLAY "Example for <^BLINKING RED^> in the middle.", GRAY, WHITE, 1, 0, 8, 0, 0, 1, 0
  28. DIS.PLAY "Example for <|BLINKING MAGENTA|> in the middle.", LYELLOW, BLACK, 1, 0, 10, 0, 0, 1, 0
  29. DIS.PLAY "Example for <{BLINKING YELLOW{> in the middle.", LWHITE, BLUE, 1, 0, 12, 0, 0, 1, 0
  30. DIS.PLAY "Example for <}BLINKING WHITE}> in the middle.", LBLUE, BLACK, 1, 0, 14, 0, 0, 1, 0
  31. DIS.PLAY "Example for <~NON-BLINKING BLUE~> in the middle.", LWHITE, BLACK, 0, 0, 14, 0, 0, 1, 0
  32. ENTER
  33. EXIT.DOOR "y"
  34. END
  35.  
  36.